module PhysicsTreating
	implicit none

	real(kind=8), parameter :: gravity = 9.80665d0

contains


	pure function ConvertFromCelsiusToKelvin(T) result (v)
		implicit none
		real(kind=8), intent(in) :: T
		real(kind=8) :: v
		v = T + 273.0d0
	end function


	pure function ConvertFromKelvinToCelsius(T) result (v)
		implicit none
		real(kind=8), intent(in) :: T
		real(kind=8) :: v
		v = T - 273.0d0
	end function


	pure function ConvertFromCelsiusToFarenheit(T) result (v)
		implicit none
		real(kind=8), intent(in) :: T
		real(kind=8) :: v
		v = T * 9.0d0/5.0d0 + 32.0d0
	end function


	pure function ConvertFromFarenheitToCelsius(T) result (v)
		implicit none
		real(kind=8), intent(in) :: T
		real(kind=8) :: v
		v = (T - 32.0d0) * 5.0d0/9.0d0
	end function




end module
